home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / inline < prev    next >
Encoding:
Text File  |  1987-02-26  |  590 b   |  18 lines
  1. \ words for accessing inline data
  2. \ handles any conversions  needed; rel to abs for Jforth seg&off>addr for
  3. \ OCT 12, 86. BTD Changed to prevent use in inline word. 
  4.  
  5. : inline@  ( --- inline-data-adr ) COMPILE  r@ COMPILE >rel 
  6.       INLINEOK? OFF ;  IMMEDIATE
  7.  
  8. : inline+  ( inc --- )   COMPILE r>  COMPILE +  COMPILE >r  
  9.     INLINEOK? OFF ; IMMEDIATE
  10.  
  11. : inline>  ( --- inline-data-adr )  ( return-adr --r-- ) 
  12.     COMPILE r>  COMPILE >rel INLINEOK? OFF ; IMMEDIATE
  13.  
  14. : >inline  ( inline-data-adr --- )  ( --r-- return-adr )  
  15.    COMPILE >abs  COMPILE >r INLINEOK? OFF ; IMMEDIATE
  16.  
  17. decimal
  18.